home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / windows / win31 / macsyma.arj / MACSDEMO.EXE / ZETAINT.OUT < prev   
Text File  |  1993-09-14  |  2KB  |  44 lines
  1.  
  2. (c1) /* Demonstration of the generalized ZETA integral capability */
  3.  
  4. /* This code handles:
  5.  
  6.    INTEGRATE(X^V/(EXP(U*X)-1),X,0,INF), with Re(U),Re(V)>0 
  7.       = U^-(V+1)*GAMMA(V+1)*ZETA(V+1)  (G&R 3.411 p.325 #1).
  8.    INTEGRATE(X^V/(EXP(U*X)+1),X,0,INF), with Re(U)>0 & Re(V)>-1, V#0
  9.       = U^-(V+1)*(1-2^-V)*GAMMA(V+1)*ZETA(V+1)  (G&R 3.411 p.325 #3)."
  10. */
  11.  
  12. /* For speed, this should be run with INTANALYSIS:FALSE$ . */
  13.  
  14. intanalysis:false$
  15.  
  16. (c2) integrate(x^3/(exp(x)-1),x,0,inf);
  17. |$label(0,15,Times New Roman,$(d2$))$q($sup($greektext(p),4),15)
  18.  
  19. (c3) integrate(x^3/(exp(x)+1),x,0,inf);
  20. |$label(0,15,Times New Roman,$(d3$))$q(7$in( )$sup($greektext(p),4),120)
  21.  
  22. (c4) integrate(x^3*exp(-x)/(1-exp(-x)),x,0,inf);
  23. |$label(0,15,Times New Roman,$(d4$))$q($sup($greektext(p),4),15)
  24.  
  25. (c5) integrate(x^(-1/2)/(exp(x)+1),x,0,inf);
  26. |$label(0,15,Times New Roman,$(d5$))$open($()1$hinge()$in( - )$sqrt(2)$close($))$hinge()$in( )$sqrt($greektext(p))$hinge()$in( )$greektext(z)$paren($q(1,2))
  27.  
  28. (c6) integrate(x^3/(2*exp(x)-2),x,0,inf);
  29. |$label(0,15,Times New Roman,$(d6$))$q($sup($greektext(p),4),30)
  30.  
  31. (c7) integrate(x^3/(a*exp(x)-a),x,0,inf);
  32. |$label(0,15,Times New Roman,$(d7$))$q($sup($greektext(p),4),15$in( )a)
  33.  
  34. (c8) integrate(x^3/(exp(5*x)-1),x,0,inf);
  35. |$label(0,15,Times New Roman,$(d8$))$q($sup($greektext(p),4),9375)
  36.  
  37. (c9) integrate(x^3/(exp(5*x)+1),x,0,inf);
  38. |$label(0,15,Times New Roman,$(d9$))$q(7$in( )$sup($greektext(p),4),75000)
  39.  
  40. (c10) integrate(x^3/(2*a*exp(5*x)-2*a),x,0,inf);
  41. |$label(0,15,Times New Roman,$(d10$))$q($sup($greektext(p),4),18750$in( )a)
  42.  
  43. (c11) /* Clean up */ reset(intanalysis)$
  44.